home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / Mac shareware / Education / RLaB / examples / conv.r < prev    next >
Encoding:
Text File  |  1994-09-21  |  314 b   |  20 lines  |  [TEXT/ttxt]
  1. #
  2. # Simplistic convolution function.
  3. # x and y must be vectors...
  4. # No error checking.
  5. #
  6.  
  7. conv = function( x , y )
  8. {
  9.   local( X , Y , n, tmp );
  10.  
  11.   n = x.n + y.n - 1;
  12.   X = fft( x, n );
  13.   Y = fft( y, n );
  14.  
  15.   tmp = ifft( X .* Y );
  16.   if( type(x) == "real" && type(y) == "real") { tmp = real(tmp); }
  17.  
  18.   return tmp;
  19. };
  20.